home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / cybint12 / bin / bd.dxr / 00156_MOVIE.ls < prev    next >
Encoding:
Text File  |  1996-12-14  |  944 b   |  50 lines
  1. on startMovie
  2.   openDirutil()
  3.   if xfactoryList("Fileio") = EMPTY then
  4.     openXLib("FileIO")
  5.   end if
  6. end
  7.  
  8. on stopMovie
  9.   if xfactoryList("Fileio") <> EMPTY then
  10.     closeXLib("FileIO")
  11.   end if
  12.   closeDirUtil()
  13. end
  14.  
  15. on openDirutil
  16.   global x
  17.   openXLib("DirUtil")
  18.   set x to DirUtil(mnew)
  19. end
  20.  
  21. on closeDirUtil
  22.   global x
  23.   x(mdispose)
  24.   closeXLib("DirUtil")
  25. end
  26.  
  27. on callwww site
  28.   global x, aFilename, Gmovie
  29.   if voidp(aFilename) then
  30.     alert("Por favor, localize o seu 'browser' de internet (explorer ou netscape)")
  31.     set f to FileIO(mnew, "?read", "exe")
  32.     if objectp(f) then
  33.       set aFilename to f(mFileName)
  34.       f(mdispose)
  35.     end if
  36.   end if
  37.   if not voidp(aFilename) then
  38.     if (aFilename contains "netscape.exe") or (aFilename contains "iexplore.exe") then
  39.       open(site, aFilename)
  40.     else
  41.       set Temp to Gmovie
  42.       clearGlobals()
  43.       go("nada")
  44.     end if
  45.   else
  46.     clearGlobals()
  47.     go("nada")
  48.   end if
  49. end
  50.